f1='XACTIVIT.DBF'
f2='ACTIVITY.DBF'
use &DR1&f1
appe from &DR1&f2
use
dele file &DR1&f2
rena &DR1&f1 to &DR1&f2

f1='XACT_PHA.DBF'
f2='ACT_PHAR.DBF'
use &DR1&f1
appe from &DR1&f2
use
dele file &DR1&f2
rena &DR1&f1 to &DR1&f2

f1='XACT_PRO.DBF'
f2='ACT_PROC.DBF'
use &DR1&f1
appe from &DR1&f2
use
dele file &DR1&f2
rena &DR1&f1 to &DR1&f2

f1='XDISPOS.DBF'
f2='DISPOS.DBF'
use &DR1&f1
appe from &DR1&f2
use
dele file &DR1&f2
rena &DR1&f1 to &DR1&f2

f1='XDRUGS.DBF'
f2='DRUGS.DBF'
use &DR1&f1
appe from &DR1&f2
use
dele file &DR1&f2
rena &DR1&f1 to &DR1&f2

f1='XIN_PAT.DBF'
f2='IN_PAT.DBF'
use &DR1&f1
appe from &DR1&f2
use
dele file &DR1&f2
rena &DR1&f1 to &DR1&f2

f1='XLABORAT.DBF'
f2='LABORAT.DBF'
use &DR1&f1
appe from &DR1&f2
use
dele file &DR1&f2
rena &DR1&f1 to &DR1&f2

f1='XMEDICAL.DBF'
f2='MEDICAL.DBF'
use &DR1&f1
appe from &DR1&f2
use
dele file &DR1&f2
rena &DR1&f1 to &DR1&f2

f1='XMEDIC_P.DBF'
f2='MEDIC_PR.DBF'
use &DR1&f1
appe from &DR1&f2
use
dele file &DR1&f2
rena &DR1&f1 to &DR1&f2

f1='XPATIENT.DBF'
f2='PATIENT.DBF'
use &DR1&f1
appe from &DR1&f2
use
dele file &DR1&f2
rena &DR1&f1 to &DR1&f2

f1='XPHARMAC.DBF'
f2='PHARMACY.DBF'
use &DR1&f1
appe from &DR1&f2
use
dele file &DR1&f2
rena &DR1&f1 to &DR1&f2

f1='XREVENUE.DBF'
f2='REVENUE.DBF'
use &DR1&f1
appe from &DR1&f2
use
dele file &DR1&f2
rena &DR1&f1 to &DR1&f2

f1='XTEMPOR1.DBF'
f2='TEMPOR1.DBF'
use &DR1&f1
appe from &DR1&f2
use
dele file &DR1&f2
rena &DR1&f1 to &DR1&f2

f1='XTEMPOR2.DBF'
f2='TEMPOR2.DBF'
use &DR1&f1
appe from &DR1&f2
use
dele file &DR1&f2
rena &DR1&f1 to &DR1&f2

f1='XTEMPOR3.DBF'
f2='TEMPOR3.DBF'
use &DR1&f1
appe from &DR1&f2
use
dele file &DR1&f2
rena &DR1&f1 to &DR1&f2

f1='XTEMPOR5.DBF'
f2='TEMPOR5.DBF'
use &DR1&f1
appe from &DR1&f2
use
dele file &DR1&f2
rena &DR1&f1 to &DR1&f2

f1='XTEMPOR7.DBF'
f2='TEMPOR7.DBF'
use &DR1&f1
appe from &DR1&f2
use
dele file &DR1&f2
rena &DR1&f1 to &DR1&f2

f1='XTEMPOR8.DBF'
f2='TEMPOR8.DBF'
use &DR1&f1
appe from &DR1&f2
use
dele file &DR1&f2
rena &DR1&f1 to &DR1&f2

f1='XACTIVI1.DBF'
f2='ACTIVIT1.DBF'
use &DR1&f1
appe from &DR1&f2
use
dele file &DR1&f2
rena &DR1&f1 to &DR1&f2

f1='XACT_PH1.DBF'
f2='ACT_PHA1.DBF'
use &DR1&f1
appe from &DR1&f2
use
dele file &DR1&f2
rena &DR1&f1 to &DR1&f2

f1='XACT_PR1.DBF'
f2='ACT_PRO1.DBF'
use &DR1&f1
appe from &DR1&f2
use
dele file &DR1&f2
rena &DR1&f1 to &DR1&f2

f1='XREVENU1.DBF'
f2='REVENUE1.DBF'
use &DR1&f1
appe from &DR1&f2
use
dele file &DR1&f2
rena &DR1&f1 to &DR1&f2

set excl off

clos data
retu